﻿Public Class Main

    Private Sub Main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        LabelX1.Location = New Point((Me.Width - LabelX1.Width) / 2, (Me.Height - LabelX1.Height) / 2)
        LabelX2.Location = New Point((Me.Width - LabelX2.Width) / 2, Me.Height / 2 + LabelX2.Height)
        LabelX3.Location = New Point((Me.Width - LabelX3.Width) / 2, Me.Height - 50)
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        lblNgayGio.Text = "Hôm Nay ," & "  Ngày  " & DateTime.Now.Date.Day & " / Tháng  " & DateTime.Now.Date.Month & " / Năm  " & DateTime.Now.Date.Year & " -:- " & TimeString
    End Sub
    Private Sub btnKeHoach_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeHoach.Click
        Dim frmKH As QLKeHoach = New QLKeHoach()
        frmKH.StartPosition = FormStartPosition.CenterScreen
        frmKH.ShowDialog()
    End Sub

    Private Sub btnThoat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnThoat.Click
        If MessageBox.Show("Bạn có chắc muốn thoát ?", "Thông Báo", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
            End
        End If
    End Sub
End Class
